From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 21 Aug 2004 12:24:13 +0000 (+0000)
Subject: (lisp-indent-defmethod): Correct
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~21340
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=6e48e9dd32afe64bfe79daefa87739d033a99b36;p=emacs.git

(lisp-indent-defmethod): Correct
indentation of DEFMETHODS with non-standard method
combinations (e.g., PROGN, MIN, MAX).
---

diff --git a/lisp/emacs-lisp/cl-indent.el b/lisp/emacs-lisp/cl-indent.el
index c5e13a4c00f..a203155673c 100644
--- a/lisp/emacs-lisp/cl-indent.el
+++ b/lisp/emacs-lisp/cl-indent.el
@@ -458,7 +458,7 @@ If nil, indent backquoted lists as data, i.e., like quoted lists."
 					    (forward-char 1)
                                             (forward-sexp 3)
                                             (backward-sexp)
-					    (looking-at ":")))
+					    (looking-at ":\\|\\sw+")))
 		       '(4 4 (&whole 4 &rest 4) &body)
 		     (get 'defun 'common-lisp-indent-function))
 		   path state indent-point sexp-column normal-indent))